Driver={Microsoft Access Driver (*.mdb)};dqb=
来源:百度知道 编辑:UC知道 时间:2024/06/02 19:41:00
Dim Conn,Rs
Sub ConnBegin()
If IsObject(Conn) = True Then
Exit Sub
Else
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dqb="&Server.MapPath("Data.mdb")
Set Rs = Server.CreateObject( "Adodb.RecordSet" )
Conn.BeginTrans
End If
End Sub
'------------------------------------------------------------
Sub ConnEnd()
Conn.CommitTrans
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub
Call ConnBegin()
if isObject(Conn) = false then response.Write("conjia")
if isObject(Rs) = false then response.Write("rsjia")
On Error Resume Next
Rs.Open "Insert into biao (u_name) Values ('bbb')",Conn,1,2
Call ConnEnd()
'====================
Rs何为为何为假?
如果把 Driver={Microsoft Access Driver (*.mdb)};dq
Sub ConnBegin()
If IsObject(Conn) = True Then
Exit Sub
Else
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dqb="&Server.MapPath("Data.mdb")
Set Rs = Server.CreateObject( "Adodb.RecordSet" )
Conn.BeginTrans
End If
End Sub
'------------------------------------------------------------
Sub ConnEnd()
Conn.CommitTrans
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub
Call ConnBegin()
if isObject(Conn) = false then response.Write("conjia")
if isObject(Rs) = false then response.Write("rsjia")
On Error Resume Next
Rs.Open "Insert into biao (u_name) Values ('bbb')",Conn,1,2
Call ConnEnd()
'====================
Rs何为为何为假?
如果把 Driver={Microsoft Access Driver (*.mdb)};dq
根据官方说Provider=Microsoft.Jet.OLEDB.4.0效率高点
他们两种在下来的代码编写中有什么区别吗?>
我感觉Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dqb="&Server.MapPath("Data.mdb") 比较好使.
因为使用第一种的时候,不知道为什么老出错~可能是没有dim吗?还是程序不太严格?
我只是新手
根据官方说Provider=Microsoft.Jet.OLEDB.4.0效率高点